Chapter 7

Code example 7-1
Private Sub Incident_Reports_Click()
'This procedure filters incident reports by region.
On Error GoTo Err_Incident_Reports_Click

'Declare the  string variables
    Dim strDocName As String, strFilter As String
    Dim strRegion As String
   
'Set the strDocName to the Incident Report
    strDocName = "Incident Report"
   
'Prompt for region number to use as filter. Default is Region 5.
    strRegion = InputBox("Enter Region number", _
        "Report Region", "Region 5")
    strFilter = "[Region #] = '" & strRegion & "'"
    DoCmd.OpenReport strDocName, acPreview, , strFilter
    DoCmd.Close acForm, "Incident Reports"
   
Exit_Incident_Reports_Click:    'User clicked Cancel
    Exit Sub

Err_Incident_Reports_Click:
    MsgBox Err.Description
    Resume Exit_Incident_Reports_Click
   
End Sub
Code example 7-2
'------------------------------------------------------------
' ZipCode_LostFocus
'------------------------------------------------------------
Private Sub ZipCode_LostFocus()
On Error GoTo ZipCode_LostFocus_Err

    If (ZipCode > "90000" And ZipCode < "91000") Then
        ' Sets Region # to 7
        Forms!ReptIncs![Region #] = "Region 7"
    End If
    If (ZipCode > "91000" And ZipCode < "92000") Then
        ' Sets Region # to 6
        Forms!ReptIncs![Region #] = "Region 6"
    End If
    If (ZipCode > "92000" And ZipCode < "93000") Then
        ' Sets Region # to 5
        Forms!ReptIncs![Region #] = "Region 5"
    End If
    If (ZipCode > "93000" And ZipCode < "94000") Then
        ' Sets Region # to 4
        Forms!ReptIncs![Region #] = "Region 4"
    End If
    If (ZipCode > "94000" And ZipCode < "95000") Then
        ' Sets Region # to 3
        Forms!ReptIncs![Region #] = "Region 3"
    End If
    If (ZipCode > "95000" And ZipCode < "96000") Then
        ' Sets Region # to 2
        Forms!ReptIncs![Region #] = "Region 2"
    End If
    If (ZipCode > "96000" And ZipCode < "97000") Then
        ' Sets Region # to 1
        Forms!ReptIncs![Region #] = "Region 1"
    End If
    If (ZipCode > "97000") Then
 ' Displays "Unk"
       Forms!ReptIncs![Region #] = "Unk"
    End If
ZipCode_LostFocus_Exit:
    Exit Sub
ZipCode_LostFocus_Err:
    MsgBox Error$
    Resume ZipCode_LostFocus_Exit
End Sub
Access Power Programming with VBA, 8/23/2003, Web code examples
Virginia Andersen


